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The module may be used in the follqwing ways. 
1, It may be used by individuals or pairs of 


"students, : ; 
. 2. Individual students who have successfully 
. completed the module may ass{st other students, 


especially in handling the computer portions 

of the modulé. Thus, this module can be 

used concurrently with other individual pro- 
‘ jects. 


ie - 


_ MATERIALS 
Contained in the module: 


1. Student instructtons and worksheets. 
2. The STORE program, along with- related data 
programs and subroutines. 


os Teacher: must proWide : 


1. Computer access 
2. Occasional updates of the program data/ 
he : 


TIME SCHEDULE 


) 

_ It is expected that this module will require one 
‘fifty-minute class period per student, spent at the 
computer, Manual filling-out of the worksheets 

"could be done as homewdrk, - 


w 


OBJECTIVES 


The student will come into contact with realistic 
foodst ore prices. 


ry ¥ t o fe 
7 ne . . ‘ 
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orc Qcurne es J le , | 


<8 


” F 
-The student will Jearn some of the procedures 

of a’cash register clerk, such as making change, 
totalling cash régister amounts, etc. 


r , 
-The student will learn how sales tax for food, 
and_ non-food items is computed. ; 


~The student will learn) some of the procedures 
of a food store inventory clerk, in keeping °- 
track of products and ordering. an 


~The student will be introduced to the concept of 
meeting a budget. 


The student will, exhibit arithmetic skills in 
disquised drill, , 


This™godule is actually a simulation of a cash 
registex. The STORE program does essentially 
all the ithings which a cash register does, tot— 

alling sales, indicating change, etc. In add- ~ ‘ 
ition, the program does some things most cash ‘ 
registers don’t do: it figures sales tax, 

keeps track of inventory, etc. There are cash 
registers, in some of the major department stores, 
which have already taken over inventory respon- 
sibilities; this is probably a trend of the 

future. 


‘ 


EVALUATION PROCEDURE . 
No posttest should be required for this module. 


The student will turn in his completed workshe— 
ets, along with his computer output. He will | 
previously have checked these himself for de- ) 
screpancies. 4; 3 


« ' ‘ ? 


| 
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The student may be penalized for serious errars J 
in his own calculations, but should not be pena ~ pow 
lized for errors using the computer program. ~ es 

If necessaty, he shéuld be required to rerun the - | 
" program, Errors of one cent or so should ‘be regard— 
ed-as insignificant since they may be attributable 
to computer round off methods. . Joye 


OUTLINE’ 


4 - . | / 
A.. The carts #1 — 6 and student worksheets #6a - 
6e are virtually self-explanatory. Os 3 , 
B. Teaching Suggestions \ 
ate cm 


1, Alert students will want to know why such _ 
items as Kleenex appear under both food and 
non-food headings. This information is 
authentic. -The category of dn: item in a ne 
grocery store 1s determined by which de-~ < \ 
partment of the store orders and stocks : 
the item, “ 


2. The program is written in the Fortran com 
puter language, and format requirements 
will -cause the most trouble in running the 
program. Fortran is designed for IBM card' 
input, and every space is meaningful. 

It is essential that. a number be in the h. 

‘right space. .For this reason, the student pe ' 

is instructed to input item numbers in a 

four-space field: %3 is 0003 or blank i 

blank—blank-three; 24 is 0024. If he 

doesn't do this results will be extremely 
oe “in error, or even overflow the program, 

.\ resulting in meaningless ‘output. When 

\ an item is purchased by’the pound, the 
number of pounds should be indicated as 


t 


.the format given above. ) 


ful to those that follow. 
\ a 


; , «} 

follows: Item number (four-space field), 

two. spaces, and. the decimal equivalent of the 
number of pounds, always including a decimal 
point. This is explained in the worksheet 
instructions, and it mst be followed exactly. 


(It should be made clear to the.students that 
they need only input, for the program, the 
item namber of the product they are ‘buying/ 
and, in the case of products bought’ by the 
pound, the number of -pounds, according to *’ 


« 


«This whole area is one in which students who 
have completed the module ope be very help— 


In the interest of verisimilitude, the data 

in the program should be periodically updated, 

reflecting changes in actual prices. Students 

could gecure revised data as fieldwork; and, 

optionally, for the last worksheet, students 

could be sent to an actual supermarket, “to 

see how much they could get for a specified , 
unt of money. 


( , F 
The method of updating the data on the comp— 
uter will vary.from systém to system, but 
on most systems it should present no diffi- 
culty. 


The Student Worksheet #6e may be done in con~ 
Junction with a field trip. 


w : rd ; ' Card # 1 


This unit will acquaint you with the operation of a grocery store, 
As a buyer, you will be exposed to purchasing, to buying’ items which 
are priced by the pound, and to the difference between the sales ‘ 
‘ _ tax on: food and non-food items. You will see how a sales clerk 
'. Operdtés a cash register. You will be exposed to the problems 
of an inventory clerk - - ordering and stocking. And you will be 
given a sample exercise in budgeting your grocery expenses. 
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1A FuirToxt Provided by ERIC 


Store 


The next pages contain a list of the items available at "COMPUTER. 
DISCOUNT FOODS". They are divided into four categories: Groceries, 
Meats, Produce, and Non—Fo Items. The saleg tax, in Denvér, on food 
items is 3% and on non-foods, it is 6%. Meats and Produce are sold by 
the pound. (Produce, basically, is fresh. fruits and vegetables.) é 


: 3 
The information on the next pages is‘divided into six columns. The . = 
first colum contains the item number of each commodity. The second 
indicates whether the item is a grocery, meat, produce, or a non-food 
item. The third colum is the name of the product; the fourth column 
is its pricé. The last two columns show the maximum and minimum amounts 
of each item kept in stock. Thus, for example, potato chips: 90 bags 
are the most kept in stock; when the number of bags drops below 15, it 
is time to order some mre. If there were only 14 bags left, the stock: 


clerk would order 90~14=76 bags -- that is, enough to bring the total 
back to 90, , oy ! 


Store 


ERIC 
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GROCERIES . 

_ITM# DPT ITEM 
4+ GR Campbell's Ssiag 
5 GR Wonder Bread 
6 GR Sintons 2% Qt. 

..7 GR Caravelle : 
8 GR Snails Escargot ~ 12 
9 GR Canada Dry Gin-ale 

10 GR Milk 

i GR, Potato Chips 
12 GR Cookies 

“13 GR ° Cheddar Cheese 

1h GR Crackers 
15 GR Welch's Jam 
16 GR _ Del Monte Corn ° 

17 GR Sigman's Bologna’ 
18 GR Hostess Twinkies 

19 GR f 6—Bottle Depssit 

20 GR” Bounty : 

'21 GR Sugan 

22 GR Flour . 

23° °«OGR Graham Crackers 

2, GR Cookies 

25 | GB. Fig Bars 

26.  ) Charmin 

27 “GR Cake Mix ? 

28 GR Frosting | 

29 GR Corn Oil 

30 GR -Pears 

31 GR Mr. Clean oh 

32- GR  Blu-Boy 

33 GR Kunners Ketchup 

-3h GR 


Betty Crkr. Frsting 


a. 


Lif 


: Card # 3 


THE SALES TAX IS 3% 


PRICE. 
«23 each a 
.60 each 185 
-73 each 49 9 


-O9 each 9, 9 


.1.83 each ~ 47 =20 
65 each 797 ° 200 
.69 each 90 15 
.49 each 90 15 
~77 each 90 15 
.65 each 9 15 
~77 each 90 15 
.69 each “~ .90 15 
~29 each 90 15 
»29 each 90 a 
.16 each 90 15 
~30 each 89 15 


30 each 98 15 
41 each 99 15 
96 each 99 15 
22 each 9H 15 
96 each 99 15 
79 each 99 «15 
27 each | 99 15 
-41 each 99 15 


- i 
' > . X y , * ~ 
MEATS . THE SALES TAX IS 3% 
35. MP Hamburger , -90 /1b, 90 15 
36 MP Sirloin Steaks ,. 1.89 /lb. 90 15. 
37 MT N.Y. Steak 2.39 /1b. 99 15 . 
38 MT Top Sirloin - 2.59 /Ibe = 99015 
39 MT Sirloin | 1.69 /lb. 99 15% 
LO MT  BRilet “2.98 /1b. 99 15 ‘ 
41 MT T-bone- 1.89 /lb. 99 15 
42 MT Rd. Steak ° 1.49 /1b | 99° 15 
43 MT Rib Eye « 2.35 /lb. 99 15 
: Li MT «= Cube \ Steak 1.49 /1b.° 99 +15 
45 MT Chicken ~~ 59 / 1b. 89 15 
LO, MT Turkey 695 /1b. 99 15 
; 47 + ME "Ham Hocks .89 /1b. 99 15, < 
= 48 MT Shank Ham .89 /1b. , 99 15 ’ 
: Lo%w MT Ham 98 /lb, ° 99 15 
50 MT Rib Roast . 1.49 /lb. 99 15 
51 MT Sausage .q.89 /tb, = «99115 
52 MT Liver 1.29 /1b. 99 15 | 
53 MT. Bacon a 1.39 /1b. 99 15 ae 
54 , MP Rump Roast 1,19 /1b. 99 15 7 
; 55 MT  Pearch 1,10 /1b. 99 1 
56 MI” Lamb Chop 2.19 /1b. 99 15 . 
57 - MI Spare Rib : 1.49 /1b. 99 15 
58 MT Veal Cutlet 2,25 / 1b, 99 15 
~59 MI Kidneys 1.19 /1b. 99 15 ; 
60 MI Hot Dogs 98 (i? 99 .15 


PRODUCE . THE SALES TAX IS 3% 
61 PR Potatoes s17 Jib. 90 15 - 
62 PR Lettuce 239 /1b. 90 («15 
63. PR Apples «25. 710s 90 15 
64 PR -Apples .23 /1b. 20 50 
65 PR Oranges _ 29 /1b. 91+ 15 
66 PR Grapes 49 /lb. , 90 15 
67 PR Watermelon 49 /1b. 25 20 
68 | PR Canteloupe ~25 /1b. 90 15 
69 PR Lettuce ° 733 /1b. 90 15 
70 PR Cabbage 218 /lb. 25 15 
71+ ‘PR Corn 610 /Ub; 25 25 
72 PR Radish elk /lbe es) 25 5 
73 PR Green Bean .69 /ib, , 90 15 
a 7 PR Mushrooms 99 /Lb. 90 +15 
75 PR Peaches 043 /1b 90 15 
74 PR Carrots s21../ib, 90 +15 
77 PR Artichokes’ 30 /1b. 90 15 
78 PR Avocodoes 226 /1b, 90 15 
‘79 PR Bannanas 27 /1b. gor 15 
80 * PR Cucumber «3371, 2 «+85 
81 PR Tomato -29 JIb,  . 25 = 25 
82. PR , Potato 41 1b. 25° 5 
83. PR Onions: 226 /1b. 90 15 
8, PR Celery , 34 /1b. 90 15° 
85, PR Pearg 33 /1b. 90 15 
86 PR Plums 229 /1b. 90 20 ° 
87 +.PR Grapefruit 231 /lb, 25 25 
88 PR Squash ely 7 Ub, 90 15 
' 89 PR Pumpkin OL /1b. 90 15 
90 PR Okra ~ 59 /1b. 90 15 
oF 
_* | 
NON-FOODS: THE SALES TAX IS 6% 
91° NF Tide Detergent 1.23 each 89 15 
92 NF  Gascade “.49 each 99 15 
93 NF Joy Dish Whg. Dtg. -83 each , 99 1h 
94 NF Ajax Detergent ~89 each 99 15 
95 NF Downy Softener 1.57 each 99 = 15 
96 NF Clorox Bleach J _ 035 each 99-15 “AL a 
97 NF Tide Detergnt .+49 each 89 15 ys 
d 98 NG Paper Towels 239 each 89 «15 : 
99 NF Kleenex ~33 each 88 15 ‘ 
100 NF Playboy Mag 1.00 each 86 15° ‘ 


} To buy from COMPUTER DISCOUNT FOODS, you mst input the item 
. ' number of each purchase. As the dtore might stock up to 9;999 ; 
. items, four digits are allowed for item numbers; thfs must be . 
- alowed for when you record a purchase. Thus, item No. 4, 
; Campbéll's Soup, must be inputted as 0004; ‘No. 25, Sugar, must be 
. inputted as 0025 (blanks may be substituted for leading zeroes).., Z 


If an item is priced by the pound, you must also input the num 

ber of pounds you buy. This number mst be a dectmal numer, and 

it must include the decimal poirit.. Space twowméter the item num os 
ber, and ther put in the number of pounds. Thus, if you bought = 

1 1/2 poynds of hamburger, you would input 0041, two’ spaces, 1.5.7 

If you bought one pound of cabbage, item Now 76, you would input 

0076, space two, T20; a oe 

If you do all this properly, COMPUTER will record each item and : 
its price, and total your ‘shopping list. |» i‘ < S a 


There are three special commands to input instead of grocery item 
numbers : tig = = ' 


. ° | * 
0003 will. tétal any particular purchase. , 
a 0002 indicates a refund (hottle returns,’ coupons, etc.) : i 
| | 0001 closes the.cash register for the day. | ) i 
. inert Pp, 
‘ When your shopping list is through, always input. 0003 before 4 ; 
OOO1. ; 
+ ‘ ms ee 
_ The cash register in the STORE pro whe with a thousand 
dollars in it, It makes change automatically. If you are a clerk, 
, you need to know how mh money is left in the register at the end 
‘# of the day. ‘(No provision. is made in the program for armgd robbery. ) 
x NN 


Store Student Worksheet # 6a 


Youyshop at COMPUTER and buy: the following: 


‘2 cans Campbell's soup . as 
oe ne . 1 package Hostess Twinkies. . 
1-1/4 pounds hamburger 
1 .. ‘',” 1 pounds oranges . 
= : i . package Tide detergent ; . 
; 1-1/2 pounds onions . a | 
—_ ‘1 . box-Kleenex 3 


‘ 
“ . : 


Separate this list into food and non=ffod items and fil] out the tables: below: 
r) - a * ‘ ‘ . a 
: ; is “yy 

FOOD: ITEMS ; 

a : para : | 

UNIT PRICE - AMOUNT TOTAL PRICE. 
ia  &: ; oi i aod 


| ITEMNO.  . . ITEM NAME 


¢ ° rn t 
= ; : L 
2. Caend yy 
e . - nd ‘s : ; — , . - 
7 t ; “\ ¢ 
en oc , 
. & : NON-FOOD ITEMS » 
“ITEM NO. ITEM NAME “ "UNIT PRICE = AMOUNT ‘TOTAL PRICE 
a co 
J \ oe -4 
\ ’ q 
‘Total Price of all Food Items: ‘ P 
Sales Tax on Food Items (at 3%): 
Total” for all Non-Food Items : 
> Sales Tax for’ Non-Food (at (6%) oe 
4. Total Amount Paid: ~“ 
You givé the clerk a five-dollar bill. How much change do you 
get back? . : 


Check your answers on the: STORE Program. 


‘9 
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Store 4 / : Student Worksheet # 6b 
‘Make yp a shopping list of your own of from five to ten items. 
Use the space below, and separate foods from non-f ods. 
ay - FOODS 


_. Maa. —Name_of Tem Unit Price Amount — . Total price. 
| co a ae 
ho Ae ee enced ee renee ee eae en ay 


_ NON-FOODS pp \ 


ete pee ae eon ~ 


XY 
What is the total cost, of your food items? 
What _ is the total cost, of non~food items? 


What i8 the total amount of sales tax “ 
. (for food and non-food)? 


e . “What is the total amount you pay? 
» Determine what size bill you give the clerk: 


- What 1s your change? . 
Check your answers on the STORE program. 


v 
7 : 
a C 
KN ee 
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"4+ . OO Student Worksheet # 6a 
Cy F 


You are a sales clerk at COMPUTER DISCOUNT FOODS. You start with $1000.00 % 


in your cash register. After ringing up ‘the shopping lists on Student 


Worksheets ‘# 1 and 2, you close the register for the day. How much néngy is 
there now in the register? 


AY 


In addition to the shopping lists on Student Worksheets # 1 and 2, you have 
one more customer before you close your cash register for the day. ‘This 
customer returns two six-pack cartons of bottles, and his bottle deposit 

is regunded (the deposit 1s $.05 per bottle). How'much money is there 4n 
the register? - | 


Use the next page to make up three short shopping lists. In the second 

column, indicate whether éach item is Grocery, Meat, Produce or Non-Food. 

If you ring up all three of these gales, how much money will you have in 

your, cash register? (Remember that the sales tax on Non-Foods is 6%, while 

on everything else it is 3%.) 
A bd . 


a 


\ 


a 


Use the STORE Program to check your answers. At the end of the program, 
the computer will indicate what items the store needs to reorder, and how 


” 


many of each of these items are “heft. Using the last two columns of the 
original stock lists; indicate how many of each'of these items,need to be * 
ordered. : : . 


® ? 
arf 7 : 


C . 
Number Item r Amount Need&d 


Store 


_In ‘add{tion to the Shopping lists on erase) Workshgets # 1 and 2, ‘you have 


: : 
: 4 
a , : 
. 
a : 


Student Worksheet # 6c 


= 


a 


You are a®wales clerk at COMPUTER DISCOUNT FOODS. You start with $1000.00. _ 


in your cash register. After ringing up the shopping lists on Student 
Worksheets # 1 and 2, you close the register for the day. How much money is 
there now in the register? a 


v q 


one more customer béfore you close your cash register for the day. _ This 
customer returns two 31x-pack cartons.of bottles, and his bottle deposit 
is regunded (the deposit is $.05 per bottle). How much money is there in 
the register? Ss re 


Use the next page to make up three short shopping lists. In the second , 
colum\, indicate uM tiee gach aca is Grocery, Meat, Produce or Non-Food. . 
If you ring up all threé of these gales, how much money will you have in 
your cash register? (Remember that the sales tax on Non-Foods is .6%, while 
on everything else it is 3%.) ° 


Use the STORE Program to check your answers. At the end of the program, 
the computer will indicate what items the store «needs to reordoy, and how 
many of each of thege items are left. Using the last two columns of the 
original stock ligts, indicate how many of each of these items need to be 
ordered, = ; _ a 


N & 


~~" 


Amount Needed ° ae 


' ; / 4 


Number — Item 


2 


ANY 


Store . Student Worksheet # 6d’ 


a List 1 . 

No. Department Name ‘Unit Price Amt. Price , 
Sta eenamnamenand te — a 
nt ——_____. tt . =a 7 wee 

i. 
ei ea eae te - 
Total sales tax 
eee) 
Total amount spent = “ 
- 7) ' . . 
List 2 
ee \ Sere © : $$$ a * 
ae ae hs ae 
| Total sales tax 
v . ¢ * Total amount, spent _, ~ | ¢ 
4 
List. 3 
‘ 

. 
—- a er a 
ee ’ eo m —_—_—_—_—r ee 


Total sales tax 
otal amount spent 


iciinnepiensecicinny Aimar ‘ 


Store ; , _ Student Wérksheet # be 


U 


"You have $20. 00 to eon at COMPUTER DISCOUNT FOODS, to take care of a family — ° 
aG of three. "Make out a shopping list,’ “trying to spend wisely, and stretching 


the twenty dollars as far as possible. (Don't forget the sales tgx!) a 
bd 
FOODS 
A 
‘ITEM NO. ‘NAME UNIT PRICE | AMOUNT TOTAL PRICE 
‘ ar aa = 4 
: ne ’ a ‘ 
* : Os eer i 
. aaa \ 
ee eee | ae _ oe ee 
y 
ee _ @. & et as aS te a ee a em 
ee a ee — et nee ee te 
fa eee are ar es = 
| ‘otal cost of foods " 
- y Sales tax on foods * 
NON-FOODS ie 
aa = a eee Ne Nee 
pec Sets ‘ - —_ ae eee! _—_~ mere 
a Oi ee a et mie kee ee sass pases), Mag 
i Pare Ebner re eae . 
“3 . ef «| 
. Total cost of non fvods 
“4 . Sales tax on non-foods 


Total amount spent 
. Change from $20.00° 


Use the STORE program to check your answers. 


J ’ ts 
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Store 


BASIC#DPSOO3A~-STOKEDATA 


1 L. = -000 OO oO 
2 2 "gs 000 0 0 
3 3 -000 O 0O 
4 AC AMPBELL’ 5S ‘$oUP 231 6 5 
5 SYONDER BREAD -601 13 § a 
6 Sy SSINTOMS &£ QT. | e731 48 9 
7 TUCARAVELLE '  .091 94 0 
8 SSNAILS ESCARB@OT-121-831 47 20 
9 QCANADA DRY @IN-ALE -651 797 200 : 
. 10 LOMILK . 0691 °83 15 
11 11POTATO CHIPS -491 BB 18 
1D 12COOKIES -771 88 15 
13 13CHEDDAR CHEESE -651 89 15 
14 14C RACKERS °771 90 15 
1S \ 1SWELCH'S JAM -691 69 15 
16 16DEL MONTE CORN . -291 90 15 
\" ' 17SI1GMAN'S BOLOGNA 291 89 15 
1 ISHOSTESS TWINKIES -161 688 15 — 
19 196-BOTILE DEPOSIT .-301 89 18 
20 20BOUNTY °431 98 15 
2A 21SUGAR | 2591 99 18 
ve 22FLOUR 431 9 15 y 
3 Q3GRAHAM CRACKERS 651 99 15 / roo 
24 24COOKIES °421 99 JS | 
a5, @5FIG BARS ; -371 .98 15 \ 
26 Q6CHARMIM 1, 0431 986 15. _ 
aw 2TCAME MIX -301 96 FS - 
28 @BFROSTING { e411 96 15 
+ 29 29CORN OIL -961 99 15 
; 30 30PEARS “e821 97 15 
B1 31NR. CLEAN 961 99 15 
Ae 32BLU- BOY -791 99 15 
ch) 33KUNNERS KETCHUP -271 98 18 
134 3J4BETTY CRER. FRSTNG -411 99 15 
35 9 SHAMBURG ER -9p2 88 15 - 
36 36SIRLQIN STEAKS 1-698 90. 15 
37 37TNeYs STEAK 26398 99 15 
38 38TOP SIRLOIW 2-592 99 15 .. . : 
39 39SIRLOIN 2698 99 15 “ 
40 AOFILET , 8988 96 18 
4) 41T-BONE 1-698 98 18 
ag AgRD. STEAK 1-498 “99 16 
43 A3RIB EYE 2.352 99 15 
AA AACUBEK STEAK 1-492 99 15 
45 45CHICKEN -592 67 15 
+ &6 AGTURKEY 6958 98 15 
AT ATHAM HOCKS -698 99 15 . 
As ASSHANK HAM -698 *7 15 Bie. 
: ‘ 


‘+ ‘{ r Computer Sheet # 1 
The followlny \ programs were written by Terry Garyet of George Washington 
High School, Denver, Colorado. These programs are suitable to be run orm the 
Univac Fortran system and will probably need modification for other systems. 
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store Computer Sheet #2 
49 962 96 15 t 
50 1.492 93 15 
51 1-698 99 15 
52 1.298 99 15 
53 1-392 96 15 ed 
54 SARUMP ROAST 1-198 97 15 A 
55 5 SPEARCH ; 1-108 97 18 ' , 

56 56LANB CHOP £.192 95 16 
57 5S7SPARE RIB 1-498 97 45 
$8 S8VEAL CUTLET R-252 99 18 
59 59KI DWEYS 1-198 99 18 
60 6O0HOT DOGS 0982 95 15 » 
61 6 1POTATOES 0°173, 90 15 
62 62LETTUCE -393 90 15 
63 63APPLES -253 66 15 
64 64APPLES -233° 0 50 
65 65ORANGES ‘ .993 g9 15 
66 66GRAPES -493 88 15 
67 67WATERMEL ON °493 £4 f0 , 
68 68CANTELOUPE -253 90 15 
69 69LETTUCE | °333 90 15 ; 
70 7 OCABBAGE . ©1863 @5 15 
71 7 1CORN -103 22 25 
TP 7 2HADI SH -143 25 8 
13 73GREEN BEAN °693 90 18 
TA 7 AMUSHROOMS 993 90 18 
75 7 5PEACHES °433 90 WS : 
16 7 6CARROTS -213 90 15° 4 - 
\a7 77 ARTI CHOKES 2303 90 15 | | 
78 7B8AVOCODOKS 863 90 15 y 
719° 7 DHANNANAS °273 90 15 ) 
BO 8 OCUCUMBER °-333 85) 5 se 
81 8 ITOMATO " 2.293 285 26 _* ee 
B2 BRPOTATO ‘e313 24 § : 
83 830NI ONS - °263 66 15 
Ba 8 4CELERY - 0943 90 18 
85 85PEARS -333 90 185 ° 
86 8 6PLUMS ) °293 90 980 . 
87 87GRAPEFRUIT -313 85 @5 
88 8B SQUASH °243 90 15 
89 89PUNPKIN °043 90 15 ’ 
90 * 9OOKRA 593 90 15 ; 
9) ° 9ITIDE DETERGENT 1-234 _ 66 15 , 
96 ~\ 9BCASCADE 494 98 18 
93 J 93JOY DISH WHE. DTG. .634 98 14 
94 VW 9MRuax ORTERGENT . 694 99 15 
95 ISDOWNY SOFTENER 1-574 99 15 ¥ 

‘ 96 96CLOROX BLEACH -364 98 15 
97 97TIDE DETERGNT - -494 69 15 
98 9BPAPER TOWELS -394 86 15 
99 99K1.ERWEX --33@ 681 18 
100 1O0PLAYBOY WAA 1-004 68 15 

BASIC#DPSOO3A.STORE 4. - 

| @XQT DPSOO3A-8STORE 
Q @aDD DPSOO3A. STOREDATA 
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ERIC 
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Ret” Sena PORES OUNCE: 

@ASG.,T TEMP, F1ass/\ a8 

@BRAPT PRINTS/TEMP ae 
“@ASG,/T 9,F14///186 

@ASG/T 10,F447//186 


4 

a 

3 

4a 

@ASM.I ,ADDK. A 
va "  AXRS 

7 $(0) 

8 

9 


“A 


PF FORM 18,6,18 
CSF "@COPYsI 9esDPS003A- STOREDATA' 


10 CSF@ ‘@BRKPT PRINTS/THEeP* 
11 . CSF3 ‘@BRKPT PRIUTS ’ - 
12 CSFa *@ADD TEMP.! ! 
13 $(1) 
14. ADD* LA AO, (3,C8FR) 
15— ER CSF$ { 
16 P$RINT CPF 155eCSF1) 
17 LA AOs(3,.CSF3) s ' 
1 ER CSFS : 
I LA AQ» (2sCSF4) 
20 —- ER CSFS ee 
a1 JioxXtL LL 
ge. END 
‘, &3 eASM, E BASIC*#DPS003A- « DATE/QORALNIK» DATE. 
24 CASMSE BASIC#DPS003A. ¢ DECOCT/GORALNIK» DECOCT “3 
25 @RFOR,IS STORE. STORE 
26 INTEGER DEPT(1000),1D( 1000.3), INVC 1000), cuST» REORDC 100 
0)» REFNO.TA | i 
27 CGC 4)» ACCNT 
a6 REAL PRICKE( 1000) »MET» TOTLK( 150)» CHRG( 10) ‘ 
a9 CALL DATECIMOsI DY» TYR). 
30 IR=0 . 
.  3l ‘TAGCL)S°QR? i SO a 
32 re TAG(Q)a*mT? | 
33 . TAG(3)=*pR 
"34 _ TAG (adn? 
” 35 TOTLC#0 : 
, 16 CUST=Q 
37 SALE=0_ 
38 TTAX=0: m 
39 1 -TONG=0 . 
4d CPNTTL=0 ‘ 
al REFUND~-0  -, 
aa REFPWO<0 
a3 akG=1000. 
a4 : PO 10 I=1,100 ' . 
a5 +10 READ(S, 15) (IDC 155) oJ 153) PRI CECE)» DEPTC 1), INVCI)» REOR 
DCL) * 
a6 is PORMAT( 3X, 3A6>F40Bo lle M14) 
al ~ § WRITE( 6,982) 
a8 a FORMAT. 10s *UMEGAC DISCOUNT FOODS’ /1H » ‘DEPT ITEM 6x, 
oy 
% OB | ° °p ’ 
@ TEM ye ee | 


ERIC _— , xiv 


% 
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49 CRICE®) 


50 20 HEAD(C 5s 25) 1 TEM» WT 
51 25 , FORMAT(1 4, 4X,FS.2) = 
52 12=DEPTC ITEM) . ’ 
53 IFCITEM-£Q-1)G0O TO 100 . 
54 ; PRC@=PRICECI THM) : 
55 IFCITEM-EQ.3)G0 TO 80 oe 
56 IFCIR)35s35550 , 
ST 30 TOTLC=0 ¢ 
58 TTLNF=O0 
59 GO TO 5 . . 
60 35 IFCITEM-2)37,36,37 
61 36 IRe1 
62 GO TO 56 : 
63 37 IFCINVCITEM)) 1000, 1000, 41 
64 1000 WRITEC6,1001) 
“165 1001 FORMATC1H »*SORRY,s WE ARE (OUT OF") 
66 GO TO 39 
67 41.  IFCDEPTCITEM) NE. 4)GO TO 38 
68 TTLNF=TTLNF+PRC , 
. 69 GO TO 42° 
70 38. 1F (DEPT CITEM)~ 19455 45446, 
‘yA 46 = PRC=PRC#WT A 
72 , IF CDEPTCITIM)=3).45, 44,45, 
73 * 44 INVCITEM)*INVCITEM)-WT ea 
74 TOTLC=TOTLC+PRC ; 
75 GO TO 39 i . 
76 45 TOTLC=TOTLC+PRC - 
17 42 INVCITEM)=INVCITEM)-1 i 
s 78 39 WRI TEC 6, 40) TAGCI2) > ITEM, (1DC ITEM» J) » Ju 153) PHC 
79 40 FORMATC 1H PBI Whe) Se BRS DAG SK pS" 5 7 2) 
80 : GO TO 20 | 
A) 61 SQ IFCDEPTCITEM)»NE+4)G0 TO 51 
a Be... TTLNF®=TTLNF-PRC 
83 . GO TO 54 
84 _s IFC DEPTCITEM)-1) 54s 54,53 
85 53. PRC=PRICECITEM)#WT 
86 54 TOTLC=TOTLC~PRC 
87 REFUNO= REFUN D+F’ RC 
88 REFNO=REFNO+ 1 ' / 
B9 IR=0 
90 GO TO 39 
91 56 WRITE( 6.55) 
92 55 FORMATCIH »* THE FOLLOWING ITEM IS REFUNDED. *) 
93 GO TO 20 “ 
Px 94 80 TAX® (TTLNF#.05)+(TOTLC#. 03) ; 
95 TT4X=TTAX+TAX 
96 WRI FEC 6, 85) TAX 
97 85  FORMATCIH +8X5°TAX's 10%5 "S$". 3Xs F702) 
~ 98 TOTLC=TOTLC+TAX+TTLNF 
99 SAL E=SALE+TOTLC 
100 WRI TEC 6,90) TOTLC \ 
101 . 90 FORMAICIH »8Xs"TOTAL', BX, ° o's Fok) : 
102 551 WRITE(6,521) - oe 
103 ‘ 521 FORMATC® AMT TENDERED?*) \ F | 


104 READ(C 5291) AMTNDs COUPON » ACCNT 
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| z 
, 105 IFCAMTND-LT.TOTALC)GO TO 551 
106 Yl FORMATC F768, 1X» 732, 1X5185 
107 CIWTTL“CPNTTL+CGUPON 
108 I FCACCNT)93,9%4.48 
(109 92  AMIND=TOTLC 
“110 CHRG CACCNT ) @CHAG< HOON + TOTLE 
Mit 93° CHC = ANTD= ( TOTLC-COUPON) 
112 TCNG=TCNG+CHNG ; 
113 _ WRITE( 6,95) AMTND» COUPONsCHNG, IMO, 1 OY, IVR 
114 95 FORMATCIH »46X5°AMT TEMDERED $°,3X-"7.2,/1H » 8X» "COUPON, 
"s7Xs"S",9X, 
115 CFS+2,/1H +X. "CHANGE °,6X.°S*, 3X, F7-2/1H 2TXs12,2¢°7/%, 
— ; 
ae »8X, 
116 C* THANK YOU’ ///) 
Li7 CUST=CUST+1 
iis, TOTLK( CUST) =TOTLC 
ro. GO TO 30- 
120 100 WRITE(6, 101) : a 
fey 101 FORMAT@H1>T10, CLOSING TOTALS*//1H »*THE FOLLOWING It 
EM OULD B . 
lee | CE REORDERED’ /1H » * ITEM’, 6X» *PRODUCT’,5X»"NO IN STOCK*) 
a3 + DO 105 1=4, 100 / ° 
1p4 °° IFCINVCI)-REORD(1)) 108s 1086 105 
125 AO8™ WRITEC 6s 103916 (IDC I+ J) dw1.3) 6 INVCI) } 
» 186° 105 CONTINUE a 
127 103 FORMATCIH 2 TAs 8X» 3AGs Xo 14) 
128 ‘NET@SALK-TTAX : ; 
129 REG=REG + ( SALE-CPNTTL-TCNG) 
130 WRITE 6+ 110)CUST, SALE, TTAX»NET> REFNO» REFUND,» CPNTTL» REG 
» (I, TOTLKCI) 
131 C.1=1sCUST) 
132 Sey, 110 FORMATCIH1, "TOTALS FOR TODAY*/1H ‘CUSTOMERS ',14/1H , 
a I 
"GROSS $°,F7 , 
133 CoR/IH +* TAXES $*,F7.Q/1H »*NET*s 3X5°S' F769, /1H 213, 1X 


h- 
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q Meee tals 
» ~ 
| rn | | 2 
»* REFUNDS TO . 
134 CTALLING $°5F6.8/tE »*COUPOMS S'F5-2/1H » ‘CASH IN BEGI 
STER S* nn . 
135 Co¥8.8//1M »*CUST TOTAL’s ISQC/1N 419. 1X.F5-2)) 
136 DO 120 1=1,100 
137 180) WRITECO, 185915 CI DCI2 5) odeie3)>PRICK(I)»DEPTCI)-INVCI), 
’ £ 
REORD(1) ; . 
138° .. 185 FORWAT(I3,3A6.F408511,834) 
139 DO 130 I=1,10 
1400-130) WRITEC10,189991,CHRACI) 
141 132 FORMAT(I&,F6.8) 
142 END FILE 9 
143 END FILE 10 
144 CALL ADD - 
145 IND 
146 @MAP,INO »STORE » 
147 IN ADD 
148 8. IN STORE. 
149 IN DATE , 
150 IN DECOCT 
/ . 18) @BRKPT PRINTS 
«152 exQT STORE © 


154. + @ADD_-BASIC@DPS003A- STOREDATA : 


\ 


